Developer CD Series 1992 June: ROMin Holiday

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / MPW IIGS SC / SC.003.AnimDemo / AnimDemo.aii next >

Wrap

Text File | 1990-06-24 | 25.9 KB | 1,077 lines | [TEXT/MPS ]

******************************************************************************* * AnimDemo * * (C) Copyright Apple Computer, Inc. 1988-1990 * All rights reserved. * * Version 3.0 Jim Mensch * * This program is designed to show 3 different styles of animation techniques * that can be used on the Apple IIgs. * * NOTE: This program shows simple animation techniques that can be used as * templates for your own applications. Every attempt has been made to insure * maximum understandability of the source code. Speed has been sacrificed for * clarity in a few of the examples. Two techniques that are not used here but * are worth mentioning are Using the vertical count register to know when to * start drawing (discussed in Apple IIgs tech note #39) and Shielding the * cursor when using the event manager (discussed in Apple IIgs Tech Note #34). * ******************************************************************************* ********************************************************************** * * * Copyright (c) Apple Computer, Inc. 1988-1990 * * All Rights Reserved * * * * Developer Technical Support Apple II Sample Code * * * * * * * * ---------------------------------------------------------------- * * * * This program and its derivatives are licensed only for * * use on Apple computers. * * * * Works based on this program must contain and * * conspicuously display this notice. * * * * This software is provided for your evaluation and to * * assist you in developing software for the Apple IIGS * * computer. * * * * DISCLAIMER OF WARRANTY * * * * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT * * WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, * * WITH RESPECT TO ITS MERCHANTABILITY OR ITS FITNESS * * FOR ANY PARTICULAR PURPOSE. THE ENTIRE RISK AS TO * * THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH * * YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU (AND * * NOT APPLE OR AN APPLE AUTHORIZED REPRESENTATIVE) * * ASSUME THE ENTIRE COST OF ALL NECESSARY SERVICING, * * REPAIR OR CORRECTION. * * * * Apple does not warrant that the functions * * contained in the Software will meet your requirements * * or that the operation of the Software will be * * uninterrupted or error free or that defects in the * * Software will be corrected. * * * * SOME STATES DO NOT ALLOW THE EXCLUSION * * OF IMPLIED WARRANTIES, SO THE ABOVE EXCLUSION MAY * * NOT APPLY TO YOU. THIS WARRANTY GIVES YOU SPECIFIC * * LEGAL RIGHTS AND YOU MAY ALSO HAVE OTHER RIGHTS * * WHICH VARY FROM STATE TO STATE. * * * * * ********************************************************************** eject case on PRINT NOHDR,NOGEN STRING AsIS PRINT PUSH,OFF INCLUDE 'M16.Util' INCLUDE 'M16.ProDOS' INCLUDE 'M16.QUICKDRAW' INCLUDE 'M16.MEMORY' Include 'E16.memory' INCLUDE 'M16.EVENT' INCLUDE 'M16.LOCATOR' INCLUDE 'M16.MISCTOOL' INCLUDE 'M16.SOUND' INCLUDE 'M16.NOTESYN' INCLUDE 'M16.TextTOOL' INCLUDE 'M16.IntMath' PRINT POP DPHandle equ 0 DPPointer equ DPHandle+4 Counter equ DPPointer+4 LastTick equ Counter+2 temp1 equ LastTick+2 temp2 equ temp1+2 LinePt equ temp2+2 ScreenTab equ LinePt+4 MyBitMap equ ScreenTab+4 MyBitMask equ MyBitMap+4 CurX equ MyBitMask+4 CurY equ CurX+2 DDPoint1 equ CurY+2 DDPoint2 equ DDPoint1+4 DDPoint3 equ DDPoint2+4 DDTemp equ DDPoint3+4 DDXInc equ DDTemp+4 DDYInc equ DDXInc+2 ScreenMode equ 0 ScreenWidth equ 320 EJECT ******************************************************************************* * AnimDemo PROC * * Description: This is the main loop of the animation demo * * * Inputs: None * * Outputs: None * * External Refs: Import InitTools Import InitApp Import MainLoop Import CloseApp Import CloseTools Import QuitParms * * Entry Points: * ******************************************************************************* jsr InitTools jsr InitApp jsr MainLoop jsr CloseApp jsr CloseTools _Quit QuitParms EndP EJECT ******************************************************************************* * Globals Record * * Description: Data used throughout the program * * * Inputs: None * * Outputs: None * * External Refs: None * * Entry Points: Export QuitParms * ******************************************************************************* MyID ds.W 1 ; application ID QuitParms dc.L 0 ; standard parms to make the quit call dc.W $00 ; return to the launching application dc.W 0 DTSString dc.B 'Apple IIgs Power to Animate',0 AutString dc.B 'By Jim Mensch Apple DTS',0 Trigger dc.W 0 EventRecord EventWhat ds.B 2 EventMessage ds.B 4 EventWhen ds.B 4 EventWhere ds.B 4 EventModifiers ds.B 2 Rect ds.B 8 BitMap dc.W $7700,$7777,$0077 ; Bit maps of our animated character dc.W $6607,$7667,$7066 dc.W $6676,$7667,$6766 dc.W $6776,$7777,$6776 dc.W $6776,$0000,$6776 dc.W $7777,$0000,$7777 dc.W $7777,$0000,$7777 dc.W $6776,$0000,$6776 dc.W $6776,$7777,$6776 dc.W $6676,$7667,$6766 dc.W $6607,$7667,$7066 dc.W $7700,$7777,$0077 BitMask dc.W $FF00,$FFFF,$00FF ; Mask of our animated character dc.W $FF0F,$FFFF,$F0FF ; to be used for seethru drawing dc.W $FFFF,$FFFF,$FFFF dc.W $FFFF,$FFFF,$FFFF dc.W $FFFF,$0000,$FFFF dc.W $FFFF,$0000,$FFFF dc.W $FFFF,$0000,$FFFF dc.W $FFFF,$0000,$FFFF dc.W $FFFF,$FFFF,$FFFF dc.W $FFFF,$FFFF,$FFFF dc.W $FF0F,$FFFF,$F0FF dc.W $FF00,$FFFF,$00FF MyDP ds.W 1 ; My zero page storage EndR EJECT ******************************************************************************* * InitTools PROC * * Description: Routine that loads and starts up all the tools that we will * be using in this program * * * Inputs: None * * Outputs: None * * External Refs: Import FatalError * * Entry Points: None * ******************************************************************************* With Globals ; ; Tool Direct page offsets here ; QDDPage equ $0000 EMDPage equ QDDPage+$0300 SEQDPage equ EMDPage+$0100 ToolDPSize equ SEQDPage+$0200 phk ; Save program bank register and plb ; load it as the data bank register tdc sta MyDP ; Save direct register _TLStartup ; Start Tool Locator PushWord ; Space for result _MMStartup ; Start memory manager PullWord MyID ; Save it for later use _MTStartup ; Start up Misc Tools _IMStartup ; Start integer math toolset ; PushLong #ToolTable ; Pointer to Tool table ; _LoadTools ; Load all RAM based tools ; bcc IT0005 ; Carry clear means no error ; brl FatalError ; Tools can't be loaded. Fatal error! IT0005 ; Get memory for Tool Direct pages PushLong #0 ; Room for result PushLong #ToolDPSize; Number of bytes needed PushWord MyID ; ID of this application PushWord #attrLocked+attrFixed+attrPage+attrBank PushLong #0 ; Allocate them in bank 0 _NewHandle bcc IT0010 ; Test carry for error brl FatalError ; If no memory we got a fatal error! IT0010 PullLong DPHandle ; Retrieve handle to our DPage area lda [DPHandle] ; Dereference the handle to get a ptr sta DPPointer ; to our direct page area and save it. PushWord DPPointer ; QuickDraw uses 3 pages of Dpage PushWord #ScreenMode; Used to set all master SCB's PushWord #0 ; Zero means use default buf size PushWord MyID ; Application ID for allocating data _QDStartup ; Start QuickDraw, turn on SHR Screen bcc IT0015 brl FatalError ; If it can't be started then bomb IT0015 lda DPPointer ; Create address for Event Mgr DPage by clc ; loading in the pointer to the start adc #EMDPage ; of DPage and adding Evt Mgr offset. pha ; Now push it on the stack. PushWord #20 ; Size of event queue. PushWord #0 ; MouseClamp values. PushWord #ScreenWidth ; These will clamp mouse to screen PushWord #0 ; area only. PushWord #200 PushWord MyID _EMStartup ; Start the event manager bcc IT0020 brl FatalError ; Event manager is also a must IT0020 RTS ToolTable dc.W 2 dc.W 25,$0100 ; note synth dc.W 26,$0100 ; note sequencer EndP EJECT ******************************************************************************* * FatalError PROC * * Description: Routine that is called whenever a tool sends back an error * that can not be recovered from. This routine prints the * error on the screen, waits for a keypress then quits back * to whoever started this application up! * * * Inputs: A = Error number * * Outputs: NONE (program exits) * * External Refs: import CloseTools * * Entry Points: NONE * ******************************************************************************* with Globals pha ; Push the error code PushLong #ErrNumStr ; Address of storage area PushWord #4 ; Length of string _Int2Hex _GrafOff ; If QD Started, shut off graphics PushLong #ErrStr ; Write error message to the screen _WriteCString pha ; Space for result PushWord #0 ; No echo _ReadChar ; Wait for a key to be pressed pla ; Discard the key jsr CloseTools ; Shut down all the tools in case ; any got started up _Quit QuitParms ; Quit back to where we came from. brk $FF ; If the quit fails then just break ErrStr dc.B 'A fatal error has occured $' ErrNumStr dc.B 'xxxx press any key to exit',0 ENDP EJECT ******************************************************************************* * CloseTools PROC * * Description: Closes all the tools that were started when the application * called InitTools. * * * Inputs: None * * Outputs: None * * External Refs: None * * Entry Points: None * ******************************************************************************* With Globals _GrafOff _EMShutDown _QDShutDown _MTShutDown PushLong DPHandle ; Dispose of all the DP memory _DisposeHandle PushWord MyID _MMShutDown _TLShutDown rts EndP EJECT ******************************************************************************* * InitApp PROC * * Description: This procedure will draw the initial screen display and * install all the heartbeat tasks for the various animation * routines. * * * Inputs: None * * Outputs: None * * External Refs: None Import ScrollTask Import LightTask Import TrigrTask * * Entry Points: None * ******************************************************************************* With Globals Stz LinePt ; use line pt as temp flag! PushWord #5 ; Erase Screen to DkGreen _SetSolidPenPat PushLong #ScrnRect _PaintRect PushWord #0 _SetSolidPenPat PushLong #Marq1Rect ; Erase the Marquee area to black _PaintRect PushLong #CoinRect ; Erase the coin area to black _PaintRect Inc CoinRect ; InsetRect(CoinRect,-1,-1) inc CoinRect+2 dec CoinRect+4 dec CoinRect+6 PushWord #4 ; give the coin rectangle a green boarded _SetSolidPenPat PushLong #Rect _FrameRect lda #20 ; set up a rectangle for the first sta Rect ; Marquee light in the top row sta Rect+2 ; lda #30 sta Rect+4 sta Rect+6 PushWord #9 ; draw then in Yellow _SetSolidPenPat jsr DrawLightsH ; and draw a row of horizontal lights lda #30 sta Rect+2 ; update the left and right values of lda #40 ; the rectangle to start 10 pixels over sta Rect+6 PushWord #1 ; set the color to dark gray _SetSolidPenPat jsr DrawLightsH ; and draw a row of gray lights next to the yellow ones lda #100 ; Now create the rectangle for the bottom row of sta Rect ; lights lda #30 sta Rect+2 lda #110 sta Rect+4 lda #40 sta Rect+6 jsr DrawLightsH ; and draw this row in Dk Gray lda #20 ; now reset to draw the yellow lights in this row sta Rect+2 lda #30 sta Rect+6 PushWord #9 _SetSolidPenPat jsr DrawLightsH ; Now draw the vertical lights lda #20 ; set up a rectangle for the first sta Rect ; Marquee light in the left column sta Rect+2 ; lda #30 sta Rect+4 sta Rect+6 PushWord #9 ; draw then in Yellow _SetSolidPenPat jsr DrawLightsV ; and draw a Col of vert lights lda #30 sta Rect ; update the top and bottom values of lda #40 ; the rectangle to start 10 pixels over sta Rect+4 PushWord #1 ; set the color to dark gray _SetSolidPenPat jsr DrawLightsV ; and draw a row of gray lights under the yellow lda #30 ; Now create the rectangle for the bottom row of sta Rect ; lights lda #290 sta Rect+2 lda #40 sta Rect+4 lda #300 sta Rect+6 jsr DrawLightsV ; and draw this row in Dk Gray lda #20 ; now reset to draw the yellow lights in this row sta Rect lda #30 sta Rect+4 PushWord #9 _SetSolidPenPat jsr DrawLightsV PushWord #15 ; Now, Erase the text area to white _SetSolidPenPat PushLong #Marq2Rect _PaintRect PushWord #0 ; Draw the strings in the marquee _SetSolidPenPat PushWord #50 PushWord #60 _MoveTo PushLong #DTSString _DrawCString PushWord #62 PushWord #80 _MoveTo PushLong #AutString _DrawCString PushLong #0 ; Get the address of the screen PushWord #1 ; address table for use in our _GetAddress ; animation routines PullLong ScreenTab lda #BitMap ; Now create a pointer to our bitmap sta MyBitMap lda #BitMap>>16 sta MyBitMap+2 lda #BitMask ; Now create a pointer to our bitMask sta MyBitMask lda #BitMask>>16 sta MyBitMask+2 lda #20 ; initialize the starting location sta CurX ; of the coin. lda #141 sta CurY lda #1 ; and set the current increment sta DDXInc sta DDYInc PushLong #ScrollTask ;Install the scrolling routine in _SetHeartBeat ; Heart beat queue PushLong #LightTask ; install the Marquee light _SetHeartBeat ; heartbeat task PushLong #TrigrTask ; and install our heartbeat trigger _SetHeartBeat rts ; The following routine, given the starting rectangle of the first light to draw ; Will draw a horizontal row of 14 lights across the screen at 20 pixel intervals ; DrawLightsH stz Counter ; Init the ligh counter IA001 PushLong #Rect ; draw the first light _PaintOval lda Rect+2 ; OffsetRect(Rect,20,0) clc ; do this by adding 20 to Rect.left adc #20 sta Rect+2 lda Rect+6 ; and rect.right clc adc #20 sta Rect+6 ldy Counter ; bump the counter iny sty Counter cpy #14 ; test to see if we are done bne IA001 ; if not, draw another light rts ; if so, then simply end ; ; This routine is the same as above only it creates vertical lights DrawLightsV stz Counter IA011 PushLong #Rect ; draw the light _PaintOval lda Rect ; OffsetRect(Rect,0,20) clc adc #20 sta Rect lda Rect+4 clc adc #20 sta Rect+4 ldy Counter ; Bump the counter iny sty Counter cpy #4 bne IA011 ; if not done draw another light rts ; if done, then return ScrnRect dc.W 0,0,200,320 Marq1Rect dc.W 18,18,112,302 Marq2Rect dc.W 32,32,98,288 CoinRect dc.W 139,38,183,292 EndP EJECT ******************************************************************************* * MainLoop PROC * * Description: This routine runs in a continuous loop until the user * presses the mouse button. At that time, it ends. While * it is looping, this routine checks Trigger, if the Trigger * is set, it calls the walk routine to move the coin * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: Import DoWalk * ******************************************************************************* With Globals lda Trigger ; test VBL Trigger value beq EL0010 ; if its zero then don't move the coin jsr DoWalk ; Walk a ball around a square EL0010 PushWord #0 ; get an event PushWord #$FFFF PushLong #EventRecord _GetNextEvent pla lda EventWhat cmp #1 ; is it a mousedown??? bne MainLoop ; if not get another event rts ; if so, then just end EndP EJECT ******************************************************************************* * CloseApp Proc * * Description: This routine removes all our heartbeat tasks at the end * of the program. * * * Inputs: None * * Outputs: None * * External Refs: Import TrigrTask Import LightTask Import ScrollTask * * Entry Points: * ******************************************************************************* PushLong #TrigrTask _DelHeartBeat PushLong #ScrollTask _DelHeartBeat PushLong #LightTask _DelHeartBeat rts EndP EJECT ******************************************************************************* * TriggerP PROC * * Description: Trigger heartbeat task. Every 1/60 of a second this routine * will set a trigger value. The program can then read this * value and use it to base our coin animation. * * * Inputs: None * * Outputs: None * * External Refs: None * * Entry Points: None Export TrigrTask * ******************************************************************************* With Globals TrigrTask DC.L 0 ; heartbeat task header TrgTaskCnt DC.W 3 ; Number of ticks before running Dc.W $A55A ; heartbeat task signature php ; save the current proc state REP #$30 ; set long A,I and M lda #1 ; set the trigger to true sta >Trigger lda #1 ; set the task up to be fired again sta >TrgTaskCnt ; in 1/60th of a second plp ; restore the proc status RTL ; and leave this routine endP EJECT ******************************************************************************* * LightAnim PROC * * Description: Marquee ligh animation. This heartbeat task will switch the * color table entries of color 9 and color 1 every 1/10 of * a second. This will give the illusion of moving lights * much like movie theatres used to use. * * * Inputs: None * * Outputs: None * * External Refs: None * * Entry Points: Export LightTask * ******************************************************************************* LightTask DC.L 0 LghTaskCnt DC.W 5 ; number of ticks before running Dc.W $A55A ; heartbeat signature php ; save the current processor state Rep #$30 ; and set full 16 bit mode. PushWord #0 ; get the current color table entry PushWord #0 ; for color #9 PushWord #9 _GetColorEntry pla sta >tempC1 ; and save it for later use PushWord #0 ; and get the color table entry for PushWord #0 ; color 1 PushWord #1 _GetColorEntry pla sta >tempC2 ; and save it for later PushWord #0 ; now set the entry for color #1 PushWord #1 ; to be that of what #9 was PushWord >tempC1 _SetColorEntry PushWord #0 ; and set color #9 to what Color#1 PushWord #9 ; was PushWord >tempC2 _SetColorEntry lda #6 ; Re-arm the task to be fired again Sta >LghTaskCnt ; in 1/10th of a second plp ; restore the proc status Rtl ; and leave tempC1 ds.B 2 tempC2 ds.B 2 EndP EJECT ******************************************************************************* * ScrollAnim Proc * * Description: This routine will move an area of the screen over 4 pixels * and wrap the stuff that falls off the edge to the end of * the same line (to give the image of circular scrolling). * This routine gets called aprox every 1/30th of a second * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: Export ScrollTask * ******************************************************************************* With Globals ScrollTask dc.L 0 ; Heartbeat task header ScrTaskCnt dc.W 2 dc.W $A55A phd ; save direct register php ; and proc status REP #$30 ; turn on full 16 bit mode... lda >MyDP ; get my Direct page TCD ; and make it current lda #46 ; starting scan line sta Counter lda #$E1 sta LinePt+2 ; set up high byte of scrn address SA010 lda Counter ; get starting address of scan line asl A ; multiply by 2! tay lda [ScreenTab],y ; get next line of screen tab sta LinePt ; store it in our pointer ldy #16 ; start out 8 bytes in... lda [LinePt],y ; get first byte of area sta temp1 ; save it for later... ldy #142 ; end of rect to scroll SA020 lda [LinePt],y ; get byte to scroll tax ; save it in X lda temp1 ; get proper byte value sta [LinePt],y ; now save it... txa ; get saved value sta temp1 ; and save it... dey dey cpy #14 ; did we store the last one??? bne SA020 inc Counter ; go to next line lda Counter cmp #82 ; are we done yet??? bne SA010 ; nope... not yet! lda #2 ; reset the task timer to 2 60th sta >ScrTaskCnt ; of a second (1/30th) plp ; restore the previous processor flags pld ; and the direct page register rtl EndP EJECT ******************************************************************************* * DoWalk PROC * * Description: This routine erases the coin from the screen, when the * coin hits an edge, this routine adjusts the increments * properly. * * * Inputs: None * * Outputs: None * * External Refs: Import DoErase Import DoDraw * * Entry Points: * ******************************************************************************* With Globals stz Trigger ; clear the trigger for next time jsr DoErase ; erase the coin lda CurX ; test to see if we hit the left cmp #20 ; edge blt DW005 ; if so, then change directions cmp #140 ; test the right edge blt DW010 ; if not exceeded then check top & bottom DW005 lda #0 ; this will reverse the direction of SEC ; the coins horiz movement by negating SBC DDXInc ; the current x increment sta DDXInc DW010 lda CurY ; now test the top and bottom cmp #140 ; past the top? blt DW015 ; if so, change dir cmp #170 ; past the bottom? blt DW020 ; if not skip the next section DW015 lda #0 ; negate the vertical increment sec sbc DDYInc sta DDYInc DW020 lda CurX ; now that the increment is correct clc ; bump our location counters to adc DDXInc ; the new position sta CurX lda CurY clc adc DDYInc sta CurY jsr DoDraw ; and re-draw the coin DW030 rts EndP EJECT ******************************************************************************* * DoErase PROC * * Description: This erases the coin from its current location * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* With Globals ; First calculate the starting scan line *2 and the ending scanline *2. Place ; the starting scan line into the X register and the ending in DDTemp lda CurY ; get the Y posn and multiply it by 2 asl A ; to get the current screen line offset tax ; store for later use.. clc ; add 24 to it (12 scan lines *2) adc #24 ; to make the terminating value for sta DDTemp ; our loop ; next calculates the memory location of the upper left hand corner ; of our object on the screen. This routine uses the scan line address table ; given to us by quickdraw. DE010 txy ; retrieve the current scan line index lda CurX ; get XCord in bytes. and Add it to clc ; the address of the current ycord scan adc [ScreenTab],y ; line to create the screen address. sta DDPoint1 ; Save it in Direct page so we can use lda #$E1 ; it as a long pointer. NOTE: The screen sta DDPoint1+2 ; is always in bank $E1 ; Now that DDPoint1 contains the pointer we need start copying Black over the ; screen area that the coin was in, two bytes at a time. ldy #$0000 ; zero the index DE0020 lda #$0000 ; erase with black... sta [DDPoint1],y ; save it to the screen iny ; bump our line counter 2 iny cpy #6 ; are we done with current line??? bne DE0020 ; if not do another word inx ; if so bump the screen line tbl offset inx ; by two cpx DDTemp ; see if we finished the whole picture bne DE010 ; if not, draw the next line rts ; if so, then end. EndP EJECT ******************************************************************************* * DoDraw PROC * * Description: This draws the coin at its current location * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* With Globals ; First calculate the starting scan line *2 and the ending scanline *2. Place ; the starting scan line into the X register and the ending in DDTemp lda CurY ; get the Y posn and multiply it by 2 asl A ; to get the current screen line offset tax ; store for later use.. clc ; add 24 to it (12 scan lines *2) adc #24 ; to make the terminating value for sta DDTemp ; our loop lda MyBitMap ; get address for my coin data sta DDPoint2 ; and store it in a direct page ptr lda MyBitMap+2 sta DDPoint2+2 ; next calculates the memory location of the upper left hand corner ; of our object on the screen. This routine uses the scan line address table ; given to us by quickdraw. DD010 txy ; retrieve the current scan line index lda CurX ; get XCord in bytes. and Add it to clc ; the address of the current ycord scan adc [ScreenTab],y ; line to create the screen address. sta DDPoint1 ; Save it in Direct page so we can use lda #$E1 ; it as a long pointer. NOTE: The screen sta DDPoint1+2 ; is always in bank $E1 ; Now that DDPoint1 contains the pointer we need start copying the coin data ; to the screen, two bytes at a time. ldy #$0000 ; zero the index DD0020 lda [DDPoint2],y ; get the next byte of data to copy sta [DDPoint1],y ; save it to the screen iny ; bump the byte counter by 2 iny cpy #6 ; are we done with line??? bne DD0020 ; if not, do another word lda DDPoint2 ; Now bump up pointer to clc ; the BitMap adc #6 ; by RowBytes.... sta DDPoint2 inx ; bump the screen line... inx ; by two (tbl offset) cpx DDTemp ; see if we done whole picture bne DD010 ; nope do next line rts EndP END